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FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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; Detailed Current Edit History 
- WRITE INTERNAL formatted 


FC 
Ta 


| 
FORSWRITE_IF = entry point for FORTRAN WRITE INTERNAL 16-SEP-1984 00:04: AX/VMS Macro Vv04-00 Page 1 
1-015 A 8 oat $9 OT 9 YPORRIL. SRCJFORWRITIF .MAR; 1 . 1) | 
-TITLE FORSWRITE_IF = entry point for FORTRAN WRITE Saale FORMATTED 
IDENT /1-013/ File: PORWRITIF. MAR Edit: 1013 


SRARAAAAAEEA ARATE AAAEAAAAAATAAAAAAAAAAAAAAAAAAAAAAAREAAAAARAKAAEAATEAEAEEAAA ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i, ACCORDANCE WITH THE TERMS OF SUCH pint ae THE 


I TICE. SOF TWARE 0 
ao ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


: ° | 
* * | 
® ® 
+ ® 
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os ® 
:® at 
*® ® 
ae ® 
** ® 
s® TRANSFERRED. . 
sf ® 
* - 
** ® 
:f ® 
: & 
:* ® 
:* ® 
*@ ® 
:* ® 
:® * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This puts the correct mask in entry vector, that is FORS$IO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$I0_BEG. 
ENVIRONMENT: User access mode; mixture of AST Level or not 
AUTHOR: Richard 8. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 


WINE BB EERE EE PW nononononononononons 2 2 3 
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00 
3 
i “FACILITY: FORTRAN Support Library - user callable 
ob ABSTRACT: 
00 This module contains the entry point for the FORTRAN 
00 WRITE INTERNAL FORMATTED I/0 statement. It is simply 
00 a call to FORS$IO_BEG with bits in RO which describe the 
of pereneter List. FORSSIO_BEG interprets the parameters. 
00 MAINTENANCE NOTE: 
o The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
00 . TRANSFER FORSWRITE_IF 
00 . MASK FOR$$10_BEG 
09 BR FORSWRITE_IF+2 
0 
0 
0 
° 
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HISTORY “ Detailed Current bait History « oats 99: 1:5 FORRTL.SRCIJFORWRITIF .MAR; 1 ’ 3) | 


§ ~SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 
Add comment spout vectors. TNH 23-June-78 


- Pass arg in RO, not ROR, add comments. TNH 29-July-78 
1-001 = Update version number and copyright notice. JBS 1B-nov-78 
1- § - Change statement type symbols to be LUBSK... JBS Q7-DEC-7 
1-005 - Change statement Exee seve s to be | et JBS 11-DEC-7 
1-004 = Add “_"’ to the PSECT directive. JBS 22-DEC- 
1-005 = Add FORSREAD_KF SREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 


FORSREA 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD-KU FORSREWRITE_SU, 
SBL 2-May-1979 
1-006 = Remove all entry points that need object time formatting, 
puts ing them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 
JBS 26-JUN-19 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$IO o see how much 1/0 initiation time 
mproves. JBS 02-JuL-1979 
8 - Do lLikewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
9 - Remove all entry points except FORSWRITE_TF; each of the 
others gets its own module so we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
Correct a typo that caused a data truncation error. JBS 10-JUL-1979 
New parameter format for FORS$SIO BEG. SBL 5-Dec-1979 
Change BRW FOR$$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
Correct typos in the EXTRN statements which caused FORSSUDF_RF 
rather than FORSSUDF_WF to be loaded. JAW 22-SEP-1981 
| 
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FORSWRITE_IF = entry point for FORTRAN WRITE INTERNAL 16-SEP-1984 00:04: AX/VMS Macro v04-00 P 
et DECLARATIONS raat 90:34:85 FORRTL.SRCJFORWRITIF MAR; 1 — 3) 
-SBTTL DECLARATIONS 
; ; INCLUDE FILES: | 
i : | 
94 SFORPAR ; Define inter-module FORTRAN symbols 
$6 SISBDEF ; Define statement type symbols 
97? ; 
a ; EXTERNAL SYMBOLS: 
190 ; 
101 -DSABL GBL ; Declare all external symbols 
33 19 a -EXTRN FORSSIO_BEG ; common 1/0 statement processing 
$0 104 : The rey, references are to make sure the necessary UDF and REC 
000 105 ; modules are loaded. These are the routines which are called through 
O60 138 ; the dispatch tables in FORSSDISPAT. 
000 108 © .EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF_wF9 
90 109 -EXTRN FORSSREC-WIFO, FORSSREC_WIF1, FORSSREC_WIF9 
00 111 ; 
44 6 : MACROS: 
00 113; 
00 114; NONE 
000 115; 
000 138 ; PSECT DECLARATIONS: 
0000118 
00000000 13 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD.NOWRT,LONG 
0 121 ; 
38 1 § ; EQUATED SYMBOLS: 
00 1 : 
000 124 
4 125 
3 126 ; 
0 127 ; OWN STORAGE: 
Bah 128 ; 
000 129 ; NONE 
0000 130; 


cc CX 
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FORSWRITE_IF = CRITE INTERNAL Sereekend at tt 9 90:94:88 FORRTL.SRCJFORWRITIF .MAR;1 ° 


-SBTTL FORSWRITE_IF = WRITE INTERNAL formatted 


+e 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 
a WRITE INTERNAL formatted 


; CALLING SEQUENCE: 


CALL FORSWRITE_IF (user _vbl.rt.dx, format _adr.mbu.ra 
C, err_adr.j.r [, end_adr.j.rJJ) 


system to perform 
1/0 statement. 


INPUT PARAMETERS: 
0 aha cpg pan eye ee 
$ err_adr.j.r optional ERR= address 

: end_adr.j.r optional END= address 

; IMPLICIT INPUTS: 

: NONE except those used by FORS$SIO_BEG. 

; OUTPUT PARAMETERS: 

NONE 

: IMPLICIT OUTPUTS: 

: NONE except those left by FORSSIO_BEG. 

: COMPLETION CODES: 

NONE 

: SIDE EFFECTS: 

NONE except those of FORS$I0_BEG. 
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FORSWRITE_IF:: .MASK FORSS$IO_ BEG 
eOvzeL #ISBSK_ST_TY_WIF, RO 3 Statement type 


00000002" GF 17 G*FORSSIO_BEG+ ; branch past call mask 


a a ah 
SINNED. DDD DDD DDD. TT BS BB BB EWI 
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- END 
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Symbol table ie aoe Yi 99:04:89 EPORRTL. SREJPORWRITIF .MARS 1 of bs Sy 
FORSSIO BEG eeeneeene x FO 
FORSSREC_WIFO eeeeeens ~ FO 
FORSSREC_WIF eerecere =X FO 
FORSSREC_WIF9 eereeeee =X FO 
FORSSUDF WFO eeeeeeee =X FO 
FORSSUDF “WF 1 eeereeee =X FO 
FORSSUDF “WF9 eeeeeeee =X FO 
FORSWRITE_IF 08888800 RG 1 FO 
1SB$K_ST_TY_wIF = 0000001 4 
bere ws enn ewe nw ewe + 1S 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
>» SS , 00000000 { 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ¢ 11.) 01¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
tenon ee cman annem awn ee ey 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization $3 0:00:00.08 00 :90:8 72 
Command processing 133 0:00: 9-§3 00:00: 
Pass 1 125 Ba: :01.23 00:00: 
Symbol table sort 0 0:00:00.18 00:00: 
ass 2 46 00:00:00.4 Bp 288: 
Symbol table output ¢ 00:00:00.0 0:00: 
Psect synopsis output 00:00:00.0 00:00: 
Cross-reference output 0 88: 60:05°¢ 00:00:00. 
Assembler run totals 340 00:00:02.6 00:00:12. 


The working set Limit was 1050 pegns- . 
6694 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
179 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


$owe www wow e eee ooo wooo nonne + 
: Macro Library statistics : 
Macro Library name Macros defined 
5 gz SDUAgE: FORRTL rte ee ty md 
$255$DUA28: (SYSLIBISTARLET.MLB; 
TOTALS (all Libraries) 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITIF /OBJ=OBJS$:FORWRITIF MSRCS$:FORWRITIF /UPDATE=(ENHS:FORWRITIF)+L1 
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